home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mission 3
/
Mission 3.zip
/
Mission 3.iso
/
spiele
/
thrust
/
source
/
timer.mod
< prev
Wrap
Text File
|
1996-01-30
|
345b
|
25 lines
MODULE Timer;
IMPORT XBIOS;
VAR Time : POINTER TO RECORD Hz200 : LONGINT END;
GlobTime : LONGINT;
(*$-K Kein Stackcheck *)
PROCEDURE Get2();
BEGIN
GlobTime := Time.Hz200;
END Get2;
(*$=K *)
PROCEDURE Get* () : LONGINT;
BEGIN
XBIOS.Supexec(Get2);
RETURN GlobTime;
END Get;
BEGIN
Time := 4BAH;
END Timer.